home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / mus / misc / RaveScope.lha / RaveScope / Install < prev    next >
Encoding:
Text File  |  1998-09-22  |  3.2 KB  |  131 lines
  1. ; Installer script for the RaveScope
  2. ;
  3. ; 10.9.1998 by Parsec
  4. ;
  5.  
  6.  
  7.  
  8. (procedure P_MAKEDIR #dir            ; Create a directory, with icon depending on if the
  9.     (if (IN #INSTMASK 1)            ; user has asked for icons to be created.
  10.     (makedir #dir (infos))
  11.     (makedir #dir)
  12.     )
  13. )
  14.  
  15.  
  16.  
  17. (if (= (set #DCFGDIR (getenv "DELICONFIG")) "")    ; Try to find delitracker's genie dir
  18.     (set #DELIDIR "work:")
  19.     ((set #DELIDIR (tackon (substr #DCFGDIR 0 (- (strlen #DCFGDIR) 11)) "DeliGenies"))
  20.     (if (= (exists #DELIDIR) 0) (set #DELIDIR "work:")))
  21. )
  22.  
  23. (set #RAVEDIR
  24.     (tackon
  25.     (askdir
  26.         (prompt "Where do you want to install the RaveScope? A drawer called \"RaveScope\" will be created there.")
  27.         (help (cat @askdir-help))
  28.         (default "work:")
  29.     )   "RaveScope"
  30.     )
  31. )
  32.  
  33. ;(if (< 0 @user-level)
  34.  
  35. (set #INSTMASK
  36.     (askoptions 
  37.     (prompt "What of the following do you want to install?")
  38.     (choices
  39.         "Documentation"
  40.         "Ravescope icons"
  41.         "Delitracker genie"
  42.         "Eagleplayer engine"
  43.         "Developer stuff")
  44.     (default %01111)
  45.     (help (cat "Documentation: RaveScope.guide and RaveScope.readme.\n\n" 
  46.         "Ravescope icons: Icons for the RaveScope executable and subdirs.\n\n"
  47.         "Delitracker genie: If you want to use the RaveScope with Delitracker.\n\n"
  48.             "Eagleplayer engine: If you want to use the RaveScope with Eagleplayer.\n\n"
  49.             "Developer stuff: If you want to write a RaveScope plugin for your musicplayer.\n\n"
  50.         @askoptions-help))
  51.     )
  52. )
  53.  
  54. (P_MAKEDIR #RAVEDIR)                ; Create the RaveScope main directory
  55.  
  56. (if (IN #INSTMASK 0)
  57.     (set #DOCDIR
  58.     (askdir
  59.         (prompt "Where do you want to install the documentation? No drawer will be created.")
  60.         (default (tackon #RAVEDIR "Docs"))
  61.         (newpath)
  62.         (help @askdir-help)
  63.     )
  64.     )
  65. )
  66.  
  67.  
  68. (if (IN #INSTMASK 2)
  69.     (set #DELIDIR
  70.     (askdir
  71.         (prompt "Where do you want to install the Delitracker genie?")
  72.         (default #DELIDIR)
  73.         (help (cat "Delitracker genie directory: The directory where you keep your Delitracker "
  74.         "genies. This is usually a subdir in the Delitracker directory called Deligenies. "
  75.         "If you don't want Delitracker to launch the Ravescope every time it is started, then "
  76.         "put it in Deligenies/GenieStore.\n\n"
  77.         @askdir-help))
  78.     )
  79.     )
  80. )
  81.  
  82.  
  83. (if (IN #INSTMASK 3)
  84.     (set #EAGLEDIR
  85.     (askdir
  86.         (prompt "Where do you want to install the Eagleplayer engine?")
  87.         (default "Eagleplayer2:Engines")
  88.         (help (cat "Eagleplayer directory: The directory where you keep your Eagleplayer "
  89.         "engines. This is usually a subdir in the Eagleplayer directory called Engines.\n\n"
  90.         @askdir-help))
  91.     )
  92.     )
  93. )
  94.  
  95. ;
  96. ;
  97. ;
  98. ; All questions asked, now copy everything.
  99. ;
  100. ;
  101. ;
  102.  
  103. (set #DEVDIR (tackon #RAVEDIR "Developer"))
  104. (copyfiles (dest #RAVEDIR) (source "RaveScope"))
  105.  
  106. (if (IN #INSTMASK 0)
  107.     ((if (= (exists #DOCDIR) 0)    (P_MAKEDIR #DOCDIR))
  108.     (copyfiles (dest #DOCDIR) (source "Docs/RaveScope.guide"))
  109.     (copyfiles (dest #DOCDIR) (source "Docs/RaveScope.readme")))
  110. )
  111.  
  112. (if (IN #INSTMASK 1)
  113.     (copyfiles (dest #RAVEDIR) (source "RaveScope.info"))
  114. )
  115.  
  116. (if (IN #INSTMASK 2)
  117.     (copyfiles (dest #DELIDIR) (source "Delitracker/RaveScope"))
  118. )
  119.  
  120. (if (IN #INSTMASK 3)
  121.     (copyfiles (dest #EAGLEDIR) (source "Eagleplayer/RaveScope"))
  122. )
  123.  
  124. (if (IN #INSTMASK 4)
  125.     ((P_MAKEDIR #DEVDIR)
  126.     (copyfiles (dest #DEVDIR) (all) (source "developer")))
  127. )
  128.  
  129.  
  130.  
  131.